home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 June
/
EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso
/
earcd
/
utmisc2
/
iffmst16.lha
/
IFFMaster
/
rexx
/
empty.iffmaster
next >
Wrap
Text File
|
1996-05-04
|
1KB
|
62 lines
/*
** $VER: empty-IFFMaster.rexx (00 xxx 0000) **
**
** © 1996 your name
**
**
** PROGRAMNAME:
** name of program
**
** FUNCTION:
** Use to write your own arexx scripts for IFFMaster
**
** $HISTORY:
**
** 00 xxx 000 : 0.01 : initial release
*/
PortName = 'IFFMASTER.1' /* portname, usually IFFMASTER.1 */
LF = '0a'x /* linefeed */
iffmpath = 'Gfx:Tools/IFFMaster' /* change this to your path */
ADDRESS VALUE PortName
IFFMACTIVE=1
IF ~SHOW('Ports',PortName) THEN DO
IFFMACTIVE=0 /* indicate that we did start IFFMaster through the script */
ADDRESS 'COMMAND' 'Run >NIL: GFX:Tools/IFFMaster'
ADDRESS 'COMMAND' 'WaitForPort '||PortName
IF ~SHOW('Ports',PortName) THEN EXIT 10
END
SIGNAL ON SYNTAX
SIGNAL ON ERROR
OPTIONS RESULTS
/* ------------------------- insert your code here ------------------------- */
'load env:mui/IFFMASTER.1.prefs'
'entries'
SAY "Entries: " || RESULT
/* ------------------------- end of your code --------------------------- */
IF IFFMACTIVE=0 THEN DO
ADDRESS Value portname
'quit' /* we started IFFMaster ourselves, so close it */
END
EXIT(0)
/* what to do on an error */
ERROR:
SYNTAX:
SAY '+++ Error' rc 'in line' sigl '-' ERRORTEXT(rc)
SAY SOURCELINE(sigl)
EXIT(rc)